prolog './gsp322.ijs'
NB. ,: ------------------------------------------------------------------

a=: ?5 7 3 2$4
c=: ; (i.1+r) <"1@comb&.>r=:#$a

f=: 4 : '*./ (scheck t), (,:"x a) -: t=:,:"x s=:(2;y)$.a'
(i.>:r) f&>/ c 

f=: 4 : '(a ,:"r        b) -: (s=: (2;x)$.a) ,:"r        t=: (2;y)$.b'
h=: 4 : '(a ,:"r&(97&+) b) -: (s=: (2;y)$.a) ,:"r&(97&+) t=: (2;y)$.b'

c=: ; (i.1+r) <"1@comb&.>r=:#$a=: (?2 5 3$2) * ?2 5 3 4$5
d=: ; (i.1+r) <"1@comb&.>r=:#$b=: (?2 5 3$2) * ?2 5 3 4$5

c f&>/ d [ r=: 0
c f&>/ d [ r=: 1
c f&>/ d [ r=: 2
c f&>/ d [ r=: 3
c f&>/ d [ r=: 4

c h&>/ d [ r=: 0
c h&>/ d [ r=: 1
c h&>/ d [ r=: 2
c h&>/ d [ r=: 3
c h&>/ d [ r=: 4





epilog''

